90 POKE53280,1:POKE53281,1:PRINT"[147]"
95 PRINTSPC(13)"HILLS 64 GROUP"
100 PRINTSPC(13)"PROGRAM MERGER"
110 DIM A$(2),B$(2),C$(2),N(2)
120 OPEN 15,8,15
130 INPUT"PROGRAM 1";X$
140 OPEN1,8,2,X$+",P,R"
150 INPUT#15,E,E$,E1,E2
160 IF E THEN PRINT E$:CLOSE15:END
170 GET#1,A$,A$:J=1:GOSUB420
180 INPUT"PROGRAM 2 (OR 'N')";X$
190 IF X$="N" THEN N(2)=1E9:GOTO240
200 OPEN2,8,3,X$+",P,R"
210 INPUT#15,E,E$,E1,E2
220 IF E THEN PRINT E$:CLOSE15:END
230 GET#2,A$,A$:J=2:GOSUB420
240 INPUT"NEW FILE";X$
250 OPEN8,8,8,"0:"+X$+",P,W"
260 INPUT#15,E,E$,E1,E2
270 IF E THEN PRINT E$:CLOSE 15:END
280 PRINT#8,CHR$(1);CHR$(4);
290 REM COMPARE THE LINES HERE
300 X=2
310 IFN(1)<N(2)THENX=1
320 N=N(X):IFN>1E8THEN380
330 PRINT#8,CHR$(1);CHR$(1);A$(X);B$(X);C$(X);CHR$(0);
340 FORJ=1TO2
350 IF N(J)=N THEN GOSUB420
360 NEXT J
370 GOTO300
380 PRINT#8,CHR$(0);CHR$(0);
390 CLOSE1:CLOSE2:CLOSE8:CLOSE15
400 END
410 REM READ LINE OF BASIC
420 GET#J,A$,B$
430 IFA$=""ANDB$=""THEN540
440 GET#J,A$(J),B$(J)
450 IFA$(J)=""THENA$(J)=CHR$(0)
460 IFB$(J)=""THENB$(J)=CHR$(0)
470 N(J)=ASC(A$(J))+ASC(B$(J))*256
480 C$(J)=""
490 GET#J,A$
500 IFA$=""THEN550
510 C$(J)=C$(J)+A$
520 IFST=0ANDLEN(C$(J))<254THEN490
530 PRINT"PROBLEM FILE ";J
540 N(J)=1E9
550 RETURN